VERSION 5.00
Begin VB.Form frmExtract 
   Caption         =   "Form1"
   ClientHeight    =   6465
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4995
   LinkTopic       =   "Form1"
   ScaleHeight     =   6465
   ScaleWidth      =   4995
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdClose 
      Caption         =   "Close"
      Height          =   975
      Left            =   960
      TabIndex        =   3
      Top             =   5160
      Width           =   2535
   End
   Begin VB.ListBox lstDisplay 
      Height          =   2010
      Left            =   480
      TabIndex        =   2
      Top             =   2880
      Width           =   3975
   End
   Begin VB.PictureBox Picture1 
      Height          =   1215
      Left            =   120
      Picture         =   "frmExtract.frx":0000
      ScaleHeight     =   1155
      ScaleWidth      =   4275
      TabIndex        =   1
      Top             =   120
      Width           =   4335
   End
   Begin VB.CommandButton cmdExtract 
      Caption         =   "Extract"
      Height          =   975
      Left            =   1080
      TabIndex        =   0
      Top             =   1680
      Width           =   2295
   End
End
Attribute VB_Name = "frmExtract"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdExtract_Click()

Dim dllExtract As Object


Dim nNumRecords As Long

'Extract FormAD
Set dllExtract = CreateObject("KtExtractAD.clsExtractAD")
nNumRecords = dllExtract.Extract

lstDisplay.AddItem nNumRecords & " records were axtracted for FORMAD."
lstDisplay.ListIndex = lstDisplay.ListCount - 1

Set dllExtract = Nothing
nNumRecords = 0

'Extract FormB
Set dllExtract = CreateObject("KTExtractB.clsExtractB")
nNumRecords = dllExtract.Extract

lstDisplay.AddItem nNumRecords & " records were axtracted for FORMB."
lstDisplay.ListIndex = lstDisplay.ListCount - 1

Set dllExtract = Nothing
nNumRecords = 0

'Extract FormC
Set dllExtract = CreateObject("KTExtractC.clsExtract")
nNumRecords = dllExtract.Extract

lstDisplay.AddItem nNumRecords & " records were axtracted for FORMC."
lstDisplay.ListIndex = lstDisplay.ListCount - 1

Set dllExtract = Nothing
nNumRecords = 0

''Extract IRP3A
'Set dllExtract = CreateObject("KTExtractIRP3A.clsExtractIRP3A")
'nNumRecords = dllExtract.Extract
'
'lstDisplay.AddItem nNumRecords & " records were axtracted for IRP3A."
'lstDisplay.ListIndex = lstDisplay.ListCount - 1
'
'Set dllExtract = Nothing
'nNumRecords = 0
'
''Extract IRP3B
'Set dllExtract = CreateObject("KTExtractIRP3B.clsExtractIRP3B")
'nNumRecords = dllExtract.Extract
'
'lstDisplay.AddItem nNumRecords & " records were axtracted for IRP3B."
'lstDisplay.ListIndex = lstDisplay.ListCount - 1
'
'Set dllExtract = Nothing
'nNumRecords = 0
'
''Extract IRP3C
'Set dllExtract = CreateObject("KTExtractIRP3C.clsExtractIRP3C")
'nNumRecords = dllExtract.Extract
'
'lstDisplay.AddItem nNumRecords & " records were axtracted for IRP3C."
'lstDisplay.ListIndex = lstDisplay.ListCount - 1
'
'Set dllExtract = Nothing
'nNumRecords = 0

'Extract Cancellations
Set dllExtract = CreateObject("KTExtractCancel.clsExtractCancel")
nNumRecords = dllExtract.Extract

lstDisplay.AddItem nNumRecords & " Cancelled records were axtracted."
lstDisplay.ListIndex = lstDisplay.ListCount - 1

Set dllExtract = Nothing
nNumRecords = 0


End Sub
